home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 3
/
Gold Medal Software - Volume 3 (Gold Medal) (1994).iso
/
wordproc
/
par240.arj
/
EXAMPLE.BAT
< prev
next >
Wrap
DOS Batch File
|
1994-02-14
|
3KB
|
90 lines
@ECHO OFF
ECHO OFF
REM %1 Example number
REM %2 [P]lain or [T]race menu
IF (%2) == () START
IF EXIST POM.TRC DEL POM.TRC
:MAIN
GO-MENU EXAMPLE%2.MNU 01%1 GO-MENU.SAV
IF ERRORLEVEL 10 GOTO QUIT
IF ERRORLEVEL 6 GOTO TRACE
IF ERRORLEVEL 5 GOTO OUTPUT
IF ERRORLEVEL 4 GOTO RUN
IF ERRORLEVEL 3 GOTO POMFILE
IF ERRORLEVEL 2 GOTO INPUT
IF ERRORLEVEL 1 GOTO DOCU
:TRACE
IF EXIST POM.TRC GOTO EOCKTRC
CLS
ECHO ▐▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▌
ECHO ▐ ▌
ECHO ▐ The file POM.TRC was not found. There are two possible reasons for this: ▌
ECHO ▐ ▌
ECHO ▐ (1) You have not yet run the parsing job. ▌
ECHO ▐ ▌
ECHO ▐ (2) You do not have enough DOS environment space. ▌
ECHO ▐ For details, look up the SET command in your DOS manual. ▌
ECHO ▐ ▌
ECHO ▐▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▌
ECHO
PAUSE
GOTO MAIN
:EOCKTRC
CALL VIEW POM.TRC
GOTO MAIN
:OUTPUT
IF EXIST EXAMPLE%1.LST GOTO EOCKLST
CLS
ECHO ▐▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▌
ECHO ▐ ▌
ECHO ▐ You have to run the parsing job before you can view the output. ▌
ECHO ▐ ▌
ECHO ▐▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▌
ECHO
PAUSE
GOTO MAIN
:EOCKLST
CALL VIEW EXAMPLE%1.LST
GOTO MAIN
:RUN
IF (%1) == (3) SET POM=HDRCNTR/TEST
IF (%1) == (4) SET POM=descrip/price
POM EXAMPLE%1.POM EXAMPLE%1.TXT EXAMPLE%1.LST
SET POM=
IF ERRORLEVEL 1 PAUSE
GOTO MAIN
:POMFILE
CALL VIEW EXAMPLE%1.POM
GOTO MAIN
:INPUT
IF NOT (%1) == (5) GOTO EOWARN5
CLS
ECHO ▐▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▌
ECHO ▐ ▌
ECHO ▐ NOTE: Although Parse-O-Matic can "SPLIT" input records of more than 255 ▌
ECHO ▐ characters, our file viewer has problems with such long lines. In the ▌
ECHO ▐ following display, the input lines are wrapped over more than one line. ▌
ECHO ▐ This is a shortcoming of our little file viewer and is not a problem in ▌
ECHO ▐ the input data. ▌
ECHO ▐ ▌
ECHO ▐▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▌
ECHO
PAUSE
:EOWARN5
CALL VIEW EXAMPLE%1.TXT
GOTO MAIN
:DOCU
CALL VIEW EXAMPLE%1.INF
GOTO MAIN
:QUIT
START @ EXAMPLES